Class Foo
    Public a
End Class

Dim obj

For i = 0 To 1000000
    'Set obj = CreateObject("Scripting.Dictionary")
    'obj.Add "a", i

    Set obj = New Foo
    obj.a = i
Next

'WScript.Echo "a=" & obj("a")
WScript.Echo "a=" & obj.a
